home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).zip / Franz PD Disk #115 (1991-03)(Amiga User Group Deutschland e.V.).adf / IE / IE.mod < prev    next >
Text File  |  1989-07-03  |  916b  |  41 lines
  1. (* IE C 1990 by Matthias Gutt, Kantstr. 16, W-2120 Lüneburg 
  2.    Das Programm IE rechnet  den Anteil von Vitaminen in `mg` in
  3.    Nahrungsmitteln aus. *)
  4.    
  5.  MODULE IE;
  6.  FROM SYSTEM IMPORT ADR;
  7.  FROM RealInOut IMPORT ReadReal,WriteReal;
  8.  FROM InOut IMPORT WriteLn,WriteString;
  9.  
  10.  
  11.  VAR
  12.  Eingabe,EingabeII,IE,Ausgabe: REAL;
  13.       
  14.   BEGIN
  15.    WriteLn;
  16.    WriteString("IE - Copyright 1990 by Matthias Gutt * Kantstr.16 * W-2120");
  17.    WriteString("Lüneburg ");
  18.    WriteLn;
  19.    WriteString("Geben Sie bitte die Anzahl I.E.  ein !");
  20.    WriteLn;
  21.    WriteString("IE: ");ReadReal(Eingabe);
  22.    WriteLn;
  23.    WriteString("Geben Sie nun bitte die Standardisierung an !");
  24.       WriteLn;
  25.    WriteString("Standardisierung:" );ReadReal(EingabeII);
  26.    WriteLn;
  27.   IE:=Eingabe*EingabeII;
  28.   Ausgabe:=IE/100000.0;  
  29.   WriteString ("Ergebnis:  "); WriteReal(Ausgabe,3,4); WriteString ("mg.");
  30.   WriteLn;
  31.  
  32. END IE.
  33.  
  34.  
  35.   
  36.      
  37.    
  38.    
  39.    
  40.    
  41.